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ie COPYRIGHT | («) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 
ie ALL RIGHES URESERVED. 


'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corite 
'# ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bi cenee AND WITH THE 
!® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
+ Nh 4 3 og NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


'@ THE INFORMATION IN THIS SOFTWARE IS SUBJE 
't AND SHOULD NOT BE CONSTRUED AS A COMM 
!® CORPORATION. 


's DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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le¢ 
: FACILITY: Network Control Program (NCP) 
ABSTRACT: 
5 States and data for the parsing of NCP zero commands 
ENVIRONMENT: VAX/VMS Operating System 
5 AUTHOR: Darrell Duffy , CREATION DATE: 25-September-79 
1 MODIFIED BY: 
: i v03-003 RPGO003 09-Nov-1982 
: : Accept just 2ERO® X sopRot "without DTE or K DTE. 
§ i v03-002 RPGO002 Grosso 07-Sep-1982 
: Break up into heoneel P and supply an SDB Ter 
! 
! 
! 
! 
! 
i 
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vou-000 = Definitions ves Oe ate iebeocgs ¢ 2:28:98 ENCE SRedNEBstazER:B30/4 


: 1 ZSBTTL ‘Definitions’ 

: 2 FF 

; 68 1 {INCLUDE FILES: 

; 65 : 

; 6 1 LIBRARY {LIBS :NMALIBRY ; 

; 1 LIBRARY (LIBS :NCPLIBRY 

: $8 i LIBRARY 'SYSSLIBRARY: TPAMAC* ; 
; 1! 

; r | { EXTERNAL REFERENCES: 

Be. e 

; «676 1 ACT_DFN ! External symbols for action routines 
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‘Parameter blocks’ 


i BIND DATA: 


Parameter Blocks 


General use for entities which do not take parameters 


BUILD_PCL 

(ZER, 

- END, , . 

) 

BUILD_PBK 

(ZER, 

EXE, LITL, 0, VRB_ENT, 


CIR. TKN, , VRB_ENT, 
LIN, TKN, . VRB-ENT. 


TKN, , VRB_ 
> NADR,’. VRB_ENT, 
KNO, LITB, NMASC_ENT_KNO, VRB_ENT, 


} 
BUILD_SDB 
(ZCI, NMASC_ENT_CIR, VRB_ENT, ZER) 


BUILD_SDB 
(ZL1, NMASC_ENT_LIN, VRB_ENT, ZER) 


BUILD_SDB 
(ZMO, NMASC_ENT_MOD, VRB_ENT, ZER) 


BUILD_SDB 
(ZNO, NMASC_ENT_NOD, VRB_ENT, ZER) 
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NCPSTAZER Zero Parse States and Data 1b-se “19 1:47: AX-11 Bliss-32 V4.0-74 
vO Prompt strings 12-80 8=1 384 9328: 38 NCP. SRCINCPSTAZER.B32; 
wh 176 1 2SBTTL ‘Prompt strings’ 
: 18] 1% ? . ° 
: 4 5 158 ii Build prompt strings 
BBR GS 
: ; BIND 
; 188 P0184 1 PROMPT_STRINGS 
: 1% . ; 5 ! (ZER, 
: 191 L 01 $j ENT, %STRING( 
3 136 L Q1 8 1 2 (EXECUTOR, CIRCUIT circuit-name, LINE vat al CRLF, 
; #19 P 01 1 MODULE module-name, NODE node-id, KNOWN) 
: 194 P0190 1 CIR, ‘Circuit to zero (c ecu tename) : ‘a 
; 195 P0191 1 LIN, ‘Line to zer (dev 
2 138 P 136 1 MOD, ‘Module to nore (X25-PROTOCOL, K25-SERVER, “Ked-sERvER): v7 
; 19 P0195 1 NOD, ‘Node to zero (node addre ° 
: 198 P0194 1 KWN, ° (CIRCUITS, LINES, MODULES. NODES): '. 
; 199 P0195 1 
3 00 8136 2 ) 
: $03 $198 | 
; 08 P 0199 1 PROMPT_STRINGS 
OB tae ge 
: 206 P 0 0¢ 1 DAT, "(DTE dte-name, KNOWN DTES): ', 
3 07 P 0205 1 
3 08 0204 2 ) 
; 209 Bs02 1 3 
; 10 0206 1 
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NCPSTAZER Zero Parse States and Data ibese -1984 01:47: AX-11 Bliss-32 V4.0-74 NCP 
vO4 State Table Entry 12280 8= 1382 $348:98 ENCP.SRE NEPSTAZER 03224 v04 
; 1g 0 o§ i ZSBITL ‘State Table Entry’ : 
; 14 p 09 SINIT_STATE (NCP$G_STTBL_ZER, NCPS$G_KYTBL_ZER); ; 
: 1 161! F 
3 1 \§ 1! Zero Command : 
HB ey : 
: 220 0 19 1! 
; ; 8 1 ! Dispatch to entity types and prompt if end of string 
: 18 17 
> 226 P 0 8 1 COMMAND_PROMPT 
; ; P 9 9 (ZER, ENT, NCPS_INVKEY, 
: 227 P 0 : 1 ("EXECUTOR'’, ST_ZNO_DOIT, ACTSSAVPRM, , , PBK$G_ZER_EXE), 
; 228 P 0 1 ("KNOWN', ST_ZER_KWN, ACTSSAVPRM, , . PBKS$G_ZER-KNOY, 
> 229 P 0224 1 (*CIRCUIT', ST ZER_CIR), 
; 230 P 02205 1 ("LINE', ST_ZER LIN), 
: 231 P 0226 1 ("MODULE', ST_ZER MOD), 
; 3 P 0227 1 ("NODE’, §T_ZER_NOD), 
; P 0228 1 (Oxg3 ST_ZER_R25), 
3 34 P 0 ; (*X29", STIZERX29) 
: $e $532 | ; 
; $34 0 5 1! 
: Sip 8 $e : Obtain the circuit to zero 
> 241 0236 1— 
; 2u¢ Pp 0937 1 COMMAND _PROMPT 
; 343 P 038 (ZER, CIR, NCP$_INVVAL, 
> 265 P $578 1 ( (SE_CIRC_ID), ST_ZCI_DOIT, ACTSSAVPRM, NMASC_ENT_CIR 
> 246 P 0241 1 NCPSGL_OPTION, ~PBKSG_ZER_CIR) 
: 247 p Bseg 1 
:  $te a , 
: 250 0245 1! Perform the function after ignoring noise words 
2 ee 
; 2g P 0 48 1 $STATE (ST_2CI_DOIT, 
> 254 P0249 1 (* COUNTERS') 
; 38 P 20 i (TPASL pas 
> 257 52 1 P 
: 258 P 2¢ 1 $SSTATE ( ' Allow for no parameters 
: 39 PO 34 PAS_LAMBDA, , ACTSSAVPRM, , . PBKS$G_VRB_ALL) 
: 361 56 1 ; 
; 6¢ Pp 3$ 1 $STATE ( 
; 26 P0258 1 (TPAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_ZCI) 
3 264 0259 1 ); 
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Obtain the Line to zero 


COMMAND _PROMPT 
(ZER, LIN, NCPS_INVVAL, 


( (SE_LINE_ID), ST_ZLI_DOIT, ACTSSAVPRM 


NMASC_ENT_LIN 
NCPSGL 


OPTION, ~PBK$SG_ZER_LIN) 


) 
Perform the function after ignoring noise words 


' Allow for no parameters 
PAS_LAMBDA, , ACTSSAVPRM, , , PBK$G_VRB_ALL) 


PAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_ZLI) 
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Zero Pars 

State Table Entry NCP. SRCIN STAZER B3e: (9) 
; 320 12 1 
: 321 131: 
3 : X25=PROTOCOL 
: 304 1 ie 
3 325 P0317 1 SSTATE (ST zPR 60, 
; $ P 18 1 (TPAS_EOS, ST_ZPR_PMT_DAT), 
; P r (TPAS_LAMBD A, ~ST_2PR_BAT) 
: 1 , 
; P 1 SSTATE (ST_ZPR_PMT_DAT 
: 331 § (IPRS. LAMBDA,, ACTSPRMPT,,, PMT$G_ZPR_DAT)); 
: 338 P0305 1 SSTATE (ST ZPR_D 
; P § 1 (pTE*, ef opR DAT_DTE), 
3 5 Pp 1 ("KNOWN', ST_ZPR_DAT_KWN) 
; P 8 CTPAS. LAMBDA; ST~ZPR~DOITS 
: 38 0 0 1 ‘ 
; 339 P 0331 1 SSTATE (ST_ZPR_DAT_DTE 
; 9 03 é ((SE_DTE_NUMBERS, ST_ZPR_DOIT, ACTSSAVPRM,,, PBK$G_ZPR_DTE)); 
; 4g P 0334 1 SSTATE (ST_ZPR_DAT_KWN, 
: 343 a3 : ("DTES'; ST“ZPR.DOIT, ACTSSAVPRM,,, PBKSG_ZPR_KDT)); 
: 345 0 3 1 
; 6 338 1! Perform the function after ignoring noise words 
3 347 0339 1: 
; 348 0 1 
: 349 P 0341 1 S$STATE (ST_ZPR_DOIT, 
: 350 P : 1 (* COUNTERS ') 
3 351 P 0 1 (TPAS_LAMBDAS 
2 pee eal, 
: 354 P 346 1 $STATE ( Allow for no parameters 
; 355 P 1 (TPAS_LAMBDA, , ACTSSAVPRM, . . peKsG” VRB_ALL) 
; 28 0348 1 3 
; 35 0349 1 
: 358 P 0 50 1 $STATE ( 
; 359 51 1 (fPAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, . , SDBS$G_ZPR)); 
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AX-11 s- 4.0=-74 
8 NCP. $ReIN Nep STAzER 83031 
X25-SERVER 


Perform the function after ignoring noise words 


($T_2SE_DOIT, 

(COUNTERS) 

(TPA _LAMBDAS 

( Allow for no parameters 
CTPAS_ LAMBDA, , ACTSSAVPRM, , , PBKSG” VRB_ALL) 

( 

CTPAS_ EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_ZSE) 
X29-SERVER 

($T_ZER_X29, 

porans 

CTSERVER', ST_29S_DOIT,, NMASC_ENT_MOD, NCPS$GL_OPTION) 


Perform the function after ignoring noise words 


Allow for no parameters 
TPAS LAMBDA, , ACTSSAVPRM, , , PaKSG. VRB_ALL) 


ce =e 


IPAS EOS, TPAS_EXIT, ACTSVRB_UTILITY. . , SDB$G_29S) 
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fl 
; Obtain the node to zero 


wm 


COMMAND PROMPT 
(ZER, NOD, NCPS_INVVAL, 
( 


(SE_NODE_ID), ST_ZNO_DOIT, ACTSSAVPRM, NMASC_ENT_NOD 
NCPSGL_OPTION, ~PBKSG_ZER_NOD) 
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) 
; Perform the function after ignoring noise words 


SSTATE 


vvv 


SSTATE ! Allow for no parameters 


( 

( 

( 

) 

( . 
(FPAS_LAMBDA, . ACTSSAVPRM, , , PBKSG_VRB_ALL) 
( 

( 

) 


SSTATE 
PAS_EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_ZNO) 
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NCP.SRCIN STAZER -B32; 


Find out which is known, Lines or nodes 


COMMAND PROMPT 
(ZER, KON, NCPS_INVKEY, 


t CIREUITS ST.Z2C]1_DOIT, , NMASC_ENT CIR, NCPSGL_OPTION), 


("LINES LT OL cir : NAASC ENT LIN NEPSGL OPTION), 
(*MODUL teste “NCPSEL OPT 
(NODES, *. *1N0 "DOlTs , Tanase ENT *NOBS Nesec _OPTION) 


) 


Perform the function after ignoring noise words 


( 
(COUNTERS 
(TBAB LAMBDA’ 


( Allow for no parameters 
CTPAS_ LAMBDA, , ACTSSAVPRM, , , baKSG” VRB_ALL) 


( 
(fPAS_ EOS, TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_ZMO) 


Sa 
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; 4 i ZSBTTL ‘Define Subexpressions from Library’ 

: 4 1! 

; 2 } : Define subexpressions from Library 

; 4 1° 

; £35 5 1 SEM_DTE_ NUMBER ! DTE number 

3 $28 $6 1 SEM_LINE_ID ' Line id strings 

; 4 1 SEM_CIRC_ID ! Circuit name strings 
; 480 68 1 SEM_NODE_1D ! Node id strings 
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: 4 TTL ect Listing of Parse Table’ 


.-¢ 
: LYDON 'End of module 
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